﻿Imports System
Imports System.ComponentModel
Imports System.Reflection
Imports System.Resources

<AttributeUsage(AttributeTargets.All)> _
Friend NotInheritable Class SRDisplayNameAttribute
    Inherits DisplayNameAttribute
    ' Methods
    Public Sub New(ByVal name As String)
        MyBase.DisplayNameValue = SR.GetString(name)
    End Sub

    Public Sub New(ByVal name As String, ByVal resourceSet As String)
        MyBase.DisplayNameValue = New ResourceManager(resourceSet, Assembly.GetExecutingAssembly).GetString(name)
    End Sub

End Class


